home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
calc.bas
< prev
next >
Wrap
BASIC Source File
|
1985-09-27
|
1KB
|
29 lines
10 REM calc - calculate peeks and pokes
20 DEFINT A-Z
30 CLS
40 PRINT "Enter an eight digit bit pattern, using"
50 PRINT "0 for non-significant bits and any"
60 PRINT "other character for significant bits."
70 PRINT "To return to the menu, press return"
80 PRINT "with no input."
90 PRINT
100 INPUT "Bit pattern (8 digits)";BIT$
110 IF BIT$="" THEN RUN"MENU":END
120 IF LEN(BIT$)<>8 THEN PRINT "Bit pattern must be 8 characters long":BEEP:GOTO 100
130 NUM=0:ZCOUNT=0
140 PRINT "Binary: ";
150 FOR I=1 TO 8
160 X$=MID$(BIT$,I,1)
170 IF X$="0" THEN ZCOUNT=ZCOUNT+1:PRINT X$;:GOTO 190
180 PRINT "1";:NUM=2^(8-I)+NUM:ZCOUNT=0
190 NEXT I
200 IF NUM=0 THEN PRINT:PRINT "No bits set":BEEP:GOTO 100
210 PRINT " Hex: " HEX$(NUM) " Ascii:" NUM;
220 IF NUM>=32 THEN PRINT " Character: " CHR$(NUM) ELSE PRINT
230 PRINT "Isolate: ( X AND" NUM ") /" 2^ZCOUNT
240 PRINT "Clear : ( X AND" 255-NUM ")"
250 PRINT "Set : ( X OR" NUM ")"
260 PRINT "Toggle : ( X XOR" NUM ")"
270 PRINT
280 GOTO 100